home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 3
/
Light ROM 3 - Disc 2.iso
/
programs
/
amiga
/
macromkr
/
adpromac.lha
/
$QUADSCR.ADpro
< prev
next >
Wrap
Text File
|
1993-12-23
|
2KB
|
89 lines
/* ****************************************************************** */
/* Macro Maker ADPRO AREXX Script */
/* */
/* create 2 pic logo at top */
/* with custom background */
/* ****************************************************************** */
trace on
OPTIONS RESULTS
NL = "0A"X
call addlib('rexxsupport.library',0,-30,0)
call addlib('rexxmathlib.library',0,-30,0)
call addlib('rexxarplib.library',0,-30,0)
Address 'ADPro'
STRING = '"CREATE A QUAD SCREEN ?"'
OKAY2 STRING
IF RC = 0 THEN EXIT
LFORMAT "UNIVERSAL"
GETTHEM:
GETFILES '"SHIFT & PICK 4 IMAGES"' 'DH1:'
NAMES = ADPRO_RESULT
IF WORDS(NAMES) ~= 4 THEN GETTHEM
DO I = 1 TO 4
LOAD WORD( NAMES,I )
IF RC ~= 0 THEN DO
OKAY1 'Could Not Load' LFnam
EXIT
END
ABS_SCALE 336 200
SFORMAT 'JPEG'
SAVE "RAM:TEMP"||I "RAW" 80
END
LFORMAT "BACKDROP"
LOAD "X" 752 480 "COLOR" 255 255 255
IF RC ~= 0 THEN DO
OKAY1 'COULD NOT LOAD BACKDROP'
EXIT
END
X = XSIZE
LFORMAT 'UNIVERSAL'
LOAD "RAM:TEMP1" 25 30 100
IF RC ~= 0 THEN DO
OKAY1 'Could Not Load TEMP1'
EXIT
END
LOAD "RAM:TEMP2" 371 30 100
IF RC ~= 0 THEN DO
OKAY1 'Could Not Load TEMP2'
EXIT
END
LOAD "RAM:TEMP3" 25 240 100
IF RC ~= 0 THEN DO
OKAY1 'Could Not Load TEMP3'
EXIT
END
LOAD "RAM:TEMP4" 371 240 100
IF RC ~= 0 THEN DO
OKAY1 'Could Not Load TEMP4'
EXIT
END
sformat "FRAMESTORE"
GETFILE "'INPUT NAME TO SAVE <###.FS.name>'" 'DH1:FrameStore' ' .FS.'
SFNAM = ADPRO_RESULT
SAVE SFNAM "RAW"
IF RC ~= 0 THEN DO
OKAY1 'Could Not Save' SFnam
EXIT
END
address command 'delete ram:temp1'
address command 'delete ram:temp2'
address command 'delete ram:temp3'
address command 'delete ram:temp4'
EXIT